home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / disk.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  698 b   |  19 lines

  1. if (!defined &_DISK) {
  2.     eval 'sub _DISK {1;}';
  3.     require 'kernel/fs.ph';
  4.     require 'kernel/dev.ph';
  5.     require 'kernel/fsdm.ph';
  6.     require 'kernel/ofs.ph';
  7.     require 'kernel/devDiskLabel.ph';
  8.     eval 'sub BITS_PER_BYTE {8;}';
  9.     eval 'sub BITS_PER_INT {32;}';
  10.     eval 'sub DISK_SECTORS_PER_BLOCK {( &FS_BLOCK_SIZE /  &DEV_BYTES_PER_SECTOR);}';
  11.     eval 'sub DISK_KBYTES_PER_BLOCK {( &FS_BLOCK_SIZE / 1024);}';
  12.     eval 'sub DISK_MAX_PARTS {8;}';
  13.     eval 'sub DISK_MAX_ASCII_LABEL {256;}';
  14.     eval 'sub DISK_NO_LABEL {(( &Disk_NativeLabelType) 0);}';
  15.     eval 'sub DISK_SUN_LABEL {(( &Disk_NativeLabelType) 1);}';
  16.     eval 'sub DISK_DEC_LABEL {(( &Disk_NativeLabelType) 2);}';
  17. }
  18. 1;
  19.